From 36bed8bc8c065de1d27b73cb03222db46da6b43f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 13 May 1993 12:05:52 +0000 Subject: [PATCH] (vc-version-diff): Don't move point in current buffer. --- lisp/vc.el | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) diff --git a/lisp/vc.el b/lisp/vc.el index 6073ebe86df..2b7df01e99a 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -775,15 +775,9 @@ files in or below it." (goto-char (point-min)) (set-buffer-modified-p nil) ) - (progn - (vc-backend-diff file rel1 rel2) - (goto-char (point-min)) - (if (equal (point-min) (point-max)) - (message "No changes to %s between %s and %s." file rel1 rel2) - (pop-to-buffer "*vc*") - (goto-char (point-min)) - ) - ) + (if (zerop (vc-backend-diff file rel1 rel2)) + (message "No changes to %s between %s and %s." file rel1 rel2) + (pop-to-buffer "*vc*") ) ) -- 2.30.2